home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
polardrw
/
data.z
/
Form1.frm
< prev
next >
Wrap
Text File
|
1999-05-17
|
3KB
|
86 lines
VERSION 5.00
Object = "{78BA52DF-D227-11D2-B9D2-008048FD54E6}#1.0#0"; "POLARD~1.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 8670
ClientLeft = 45
ClientTop = 330
ClientWidth = 9360
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8670
ScaleWidth = 9360
StartUpPosition = 3 'Windows Default
Begin POLARDRAWLib.POLARDraw POLARDraw1
Height = 8535
Left = 60
TabIndex = 0
Top = 90
Width = 7845
_Version = 65536
_ExtentX = 13838
_ExtentY = 15055
_StockProps = 160
Appearance = 1
DrawPaper = 0 'False
PageOriginY = 19955
HorizontalGrid = 567
VerticalGrid = 567
AllowRotate = 0 'False
AllowResize = 0 'False
AllowEditPoints = 0 'False
End
Begin VB.CommandButton btnTree
Caption = "Tree"
Height = 465
Left = 8085
TabIndex = 2
Top = 645
Width = 1200
End
Begin VB.CommandButton btnLight
Caption = "Traffic Light"
Height = 465
Left = 8085
TabIndex = 1
Top = 105
Width = 1200
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnLight_Click()
AddObject "semaphore.emf"
End Sub
Private Sub btnTree_Click()
AddObject "tree.emf"
End Sub
Private Sub Form_Load()
POLARDraw1.EnableRendering = False
lID = POLARDraw1.AddShape(1, 0, 0, POLARDraw1.PageWidth, POLARDraw1.PageHeight)
POLARDraw1.AddShapeToSelection lID
POLARDraw1.SetSelFillPicture "street.emf"
POLARDraw1.ClearSelection
POLARDraw1.DrawPaper = False
POLARDraw1.EnableRendering = True
POLARDraw1.FitToPage
End Sub
Private Sub AddObject(FileName As String)
POLARDraw1.EnableRendering = False
lID = POLARDraw1.AddShape(1, 0, 0, 30, 45)
POLARDraw1.SetShapeHasLine lID, False
POLARDraw1.ClearSelection
POLARDraw1.AddShapeToSelection lID
POLARDraw1.EnableRendering = True
POLARDraw1.SetSelFillPicture FileName
End Sub